/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / editors / emcs1857 / 1857el~1.zoo / lisp / spook.elc

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0a 28 64 65 66 76 61 72 | 20 73 70 6f 6f 6b 2d 70 |.(defvar| spook-p|
|00000010| 68 72 61 73 65 73 2d 66 | 69 6c 65 20 28 63 6f 6e |hrases-f|ile (con|
|00000020| 63 61 74 20 65 78 65 63 | 2d 64 69 72 65 63 74 6f |cat exec|-directo|
|00000030| 72 79 20 22 73 70 6f 6f | 6b 2e 6c 69 6e 65 73 22 |ry "spoo|k.lines"|
|00000040| 29 20 22 5c 0a 4b 65 65 | 70 20 79 6f 75 72 20 66 |) "\.Kee|p your f|
|00000050| 61 76 6f 72 69 74 65 20 | 70 68 72 61 73 65 73 20 |avorite |phrases |
|00000060| 68 65 72 65 2e 22 29 0a | 0a 28 64 65 66 76 61 72 |here.").|.(defvar|
|00000070| 20 73 70 6f 6f 6b 2d 70 | 68 72 61 73 65 2d 64 65 | spook-p|hrase-de|
|00000080| 66 61 75 6c 74 2d 63 6f | 75 6e 74 20 31 35 20 22 |fault-co|unt 15 "|
|00000090| 5c 0a 44 65 66 61 75 6c | 74 20 6e 75 6d 62 65 72 |\.Defaul|t number|
|000000a0| 20 6f 66 20 70 68 72 61 | 73 65 73 20 74 6f 20 69 | of phra|ses to i|
|000000b0| 6e 73 65 72 74 22 29 0a | 0a 28 64 65 66 76 61 72 |nsert").|.(defvar|
|000000c0| 20 73 70 6f 6f 6b 2d 76 | 65 63 74 6f 72 20 6e 69 | spook-v|ector ni|
|000000d0| 6c 20 22 5c 0a 49 6d 70 | 6f 72 74 61 6e 74 20 70 |l "\.Imp|ortant p|
|000000e0| 68 72 61 73 65 73 20 66 | 6f 72 20 4e 53 41 20 6d |hrases f|or NSA m|
|000000f0| 61 69 6c 2d 77 61 74 63 | 68 65 72 73 22 29 0a 0a |ail-watc|hers")..|
|00000100| 28 72 61 6e 64 6f 6d 20 | 74 29 0a 0a 28 64 65 66 |(random |t)..(def|
|00000110| 75 6e 20 73 70 6f 6f 6b | 20 6e 69 6c 20 22 5c 0a |un spook| nil "\.|
|00000120| 41 64 64 73 20 74 68 61 | 74 20 73 70 65 63 69 61 |Adds tha|t specia|
|00000130| 6c 20 74 6f 75 63 68 20 | 6f 66 20 63 6c 61 73 73 |l touch |of class|
|00000140| 20 74 6f 20 79 6f 75 72 | 20 6f 75 74 67 6f 69 6e | to your| outgoin|
|00000150| 67 20 6d 61 69 6c 2e 22 | 20 28 69 6e 74 65 72 61 |g mail."| (intera|
|00000160| 63 74 69 76 65 29 20 28 | 62 79 74 65 2d 63 6f 64 |ctive) (|byte-cod|
|00000170| 65 20 22 c3 88 08 3f 85 | 0b 00 c4 20 89 10 88 c5 |e "...?.|... ....|
|00000180| 08 21 88 60 19 c6 63 88 | c7 08 47 c8 5a 0a 5e 21 |.!.`..c.|..G.Z.^!|
|00000190| 88 c6 63 88 c9 09 60 c3 | 23 29 87 22 20 5b 73 70 |..c...`.|#)." [sp|
|000001a0| 6f 6f 6b 2d 76 65 63 74 | 6f 72 20 73 74 61 72 74 |ook-vect|or start|
|000001b0| 20 73 70 6f 6f 6b 2d 70 | 68 72 61 73 65 2d 64 65 | spook-p|hrase-de|
|000001c0| 66 61 75 6c 74 2d 63 6f | 75 6e 74 20 6e 69 6c 20 |fault-co|unt nil |
|000001d0| 73 6e 61 72 66 2d 73 70 | 6f 6f 6b 73 20 73 68 75 |snarf-sp|ooks shu|
|000001e0| 66 66 6c 65 2d 76 65 63 | 74 6f 72 20 31 30 20 73 |ffle-vec|tor 10 s|
|000001f0| 70 6f 6f 6b 31 20 31 20 | 66 69 6c 6c 2d 72 65 67 |pook1 1 |fill-reg|
|00000200| 69 6f 6e 2d 61 73 2d 70 | 61 72 61 67 72 61 70 68 |ion-as-p|aragraph|
|00000210| 5d 20 37 29 29 0a 0a 28 | 64 65 66 75 6e 20 73 70 |] 7))..(|defun sp|
|00000220| 6f 6f 6b 31 20 28 61 72 | 67 29 20 22 5c 0a 49 6e |ook1 (ar|g) "\.In|
|00000230| 73 65 72 74 73 20 61 20 | 73 70 6f 6f 6b 20 70 68 |serts a |spook ph|
|00000240| 72 61 73 65 20 41 52 47 | 20 74 69 6d 65 73 2e 22 |rase ARG| times."|
|00000250| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c3 08 21 | (byte-c|ode "..!|
|00000260| 83 0a 00 c1 82 16 00 0a | 08 48 63 88 c4 63 88 c5 |........|.Hc..c..|
|00000270| 08 53 21 87 22 20 5b 61 | 72 67 20 74 20 73 70 6f |.S!." [a|rg t spo|
|00000280| 6f 6b 2d 76 65 63 74 6f | 72 20 7a 65 72 6f 70 20 |ok-vecto|r zerop |
|00000290| 22 20 22 20 73 70 6f 6f | 6b 31 5d 20 33 29 29 0a |" " spoo|k1] 3)).|
|000002a0| 0a 28 64 65 66 75 6e 20 | 73 6e 61 72 66 2d 73 70 |.(defun |snarf-sp|
|000002b0| 6f 6f 6b 73 20 6e 69 6c | 20 22 5c 0a 52 65 61 64 |ooks nil| "\.Read|
|000002c0| 73 20 69 6e 20 74 68 65 | 20 70 68 72 61 73 65 20 |s in the| phrase |
|000002d0| 66 69 6c 65 22 20 28 62 | 79 74 65 2d 63 6f 64 65 |file" (b|yte-code|
|000002e0| 20 22 c5 c6 21 88 8a c7 | c8 21 c9 19 18 08 71 88 | "..!...|.!....q.|
|000002f0| ca cb 0a 21 21 88 cc cd | 21 88 ce cf 21 88 6d 3f |...!!...|!...!.m?|
|00000300| 85 35 00 60 1b cc cd 21 | 88 d0 0b 60 53 5c 22 09 |.5.`...!|...`S\".|
|00000310| 42 89 11 29 88 82 18 00 | 88 d1 08 21 88 c5 d2 21 |B..)....|...!...!|
|00000320| 88 d3 d4 09 5c 22 89 14 | 2a 29 87 22 20 5b 62 75 |....\"..|*)." [bu|
|00000330| 66 20 72 65 73 75 6c 74 | 20 73 70 6f 6f 6b 2d 70 |f result| spook-p|
|00000340| 68 72 61 73 65 73 2d 66 | 69 6c 65 20 62 65 67 20 |hrases-f|ile beg |
|00000350| 73 70 6f 6f 6b 2d 76 65 | 63 74 6f 72 20 6d 65 73 |spook-ve|ctor mes|
|00000360| 73 61 67 65 20 22 43 68 | 65 63 6b 69 6e 67 20 61 |sage "Ch|ecking a|
|00000370| 75 74 68 6f 72 69 7a 61 | 74 69 6f 6e 2e 2e 2e 22 |uthoriza|tion..."|
|00000380| 20 67 65 6e 65 72 61 74 | 65 2d 6e 65 77 2d 62 75 | generat|e-new-bu|
|00000390| 66 66 65 72 20 22 2a 73 | 70 6f 6f 6b 2a 22 20 6e |ffer "*s|pook*" n|
|000003a0| 69 6c 20 69 6e 73 65 72 | 74 2d 66 69 6c 65 2d 63 |il inser|t-file-c|
|000003b0| 6f 6e 74 65 6e 74 73 20 | 65 78 70 61 6e 64 2d 66 |ontents |expand-f|
|000003c0| 69 6c 65 2d 6e 61 6d 65 | 20 73 65 61 72 63 68 2d |ile-name| search-|
|000003d0| 66 6f 72 77 61 72 64 20 | 22 00 22 20 73 6b 69 70 |forward |"." skip|
|000003e0| 2d 63 68 61 72 73 2d 66 | 6f 72 77 61 72 64 20 22 |-chars-f|orward "|
|000003f0| 20 09 0a 0d 0c 22 20 62 | 75 66 66 65 72 2d 73 75 | ...." b|uffer-su|
|00000400| 62 73 74 72 69 6e 67 20 | 6b 69 6c 6c 2d 62 75 66 |bstring |kill-buf|
|00000410| 66 65 72 20 22 43 68 65 | 63 6b 69 6e 67 20 61 75 |fer "Che|cking au|
|00000420| 74 68 6f 72 69 7a 61 74 | 69 6f 6e 2e 2e 2e 20 41 |thorizat|ion... A|
|00000430| 70 70 72 6f 76 65 64 2e | 22 20 61 70 70 6c 79 20 |pproved.|" apply |
|00000440| 76 65 63 74 6f 72 5d 20 | 31 33 29 29 0a 0a 28 64 |vector] |13))..(d|
|00000450| 65 66 75 6e 20 70 69 63 | 6b 2d 72 61 6e 64 6f 6d |efun pic|k-random|
|00000460| 20 28 6e 29 20 22 5c 0a | 52 65 74 75 72 6e 73 20 | (n) "\.|Returns |
|00000470| 61 20 72 61 6e 64 6f 6d | 20 6e 75 6d 62 65 72 20 |a random| number |
|00000480| 66 72 6f 6d 20 30 20 74 | 6f 20 4e 2d 31 20 69 6e |from 0 t|o N-1 in|
|00000490| 63 6c 75 73 69 76 65 2e | 22 20 28 62 79 74 65 2d |clusive.|" (byte-|
|000004a0| 63 6f 64 65 20 22 c1 c2 | c3 c4 20 5c 22 08 5c 22 |code "..|.. \".\"|
|000004b0| 87 22 20 5b 6e 20 25 20 | 6c 6f 67 61 6e 64 20 37 |." [n % |logand 7|
|000004c0| 37 37 37 37 37 20 72 61 | 6e 64 6f 6d 5d 20 35 29 |77777 ra|ndom] 5)|
|000004d0| 29 0a 0a 28 64 65 66 75 | 6e 20 73 68 75 66 66 6c |)..(defu|n shuffl|
|000004e0| 65 2d 76 65 63 74 6f 72 | 20 28 76 65 63 74 6f 72 |e-vector| (vector|
|000004f0| 29 20 22 5c 0a 52 61 6e | 64 6f 6d 6c 79 20 70 65 |) "\.Ran|domly pe|
|00000500| 72 6d 75 74 65 20 74 68 | 65 20 65 6c 65 6d 65 6e |rmute th|e elemen|
|00000510| 74 73 20 6f 66 20 56 45 | 43 54 4f 52 20 28 61 6c |ts of VE|CTOR (al|
|00000520| 6c 20 70 65 72 6d 75 74 | 61 74 69 6f 6e 73 20 65 |l permut|ations e|
|00000530| 71 75 61 6c 6c 79 20 6c | 69 6b 65 6c 79 29 22 20 |qually l|ikely)" |
|00000540| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c5 c6 c6 0c |(byte-co|de "....|
|00000550| 47 1b 1a 19 18 08 0b 57 | 85 33 00 08 c7 0b 08 5a |G......W|.3.....Z|
|00000560| 21 5c 5c 89 11 88 0c 08 | 48 89 12 88 0c 08 0c 09 |!\\.....|H.......|
|00000570| 48 49 88 0c 09 0a 49 88 | 08 54 89 10 88 82 09 00 |HI....I.|.T......|
|00000580| 2c 88 0c 87 22 20 5b 69 | 20 6a 20 74 65 6d 70 20 |,..." [i| j temp |
|00000590| 6c 65 6e 20 76 65 63 74 | 6f 72 20 30 20 6e 69 6c |len vect|or 0 nil|
|000005a0| 20 70 69 63 6b 2d 72 61 | 6e 64 6f 6d 5d 20 36 29 | pick-ra|ndom] 6)|
|000005b0| 29 0a                   |                         |).      |        |
+--------+-------------------------+-------------------------+--------+--------+